﻿Public Class UsuarioMethod

    Public Shared Function VerificarUsuario(ByVal Usuario As UsuarioObj) As Boolean
        Try
            Dim Retorno As Boolean

            Retorno = DataFactory.Usuario.VerificarUsuario(Usuario)

            Return Retorno

        Catch ex As SqlException
            Throw ex
        Catch ex As AccesoDatosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlVerificarPassword, ex)
        Catch ex As ReglaNegociosObjetosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlVerificarPassword, ex)
        Catch ex As Exception
            Throw New ReglaNegociosMetodosException(String.Format(My.Resources.ResMensajes.ErrorDesconocido, ex.Message), ex)
        End Try
    End Function

    Public Shared Sub GuardarDatos(ByVal GuardarLogin As Boolean, ByVal GuardarPassword As Boolean, ByVal Usuario As UsuarioObj)
        Try
            If GuardarLogin Then
                UsuarioObj.LoginConfiguracion = Usuario.Login
            Else
                UsuarioObj.LoginConfiguracion = ""
            End If

            If GuardarPassword Then
                UsuarioObj.PasswordConfiguracion = Usuario.PassWord
            Else
                UsuarioObj.PasswordConfiguracion = ""
            End If

        Catch ex As SqlException
            Throw ex
        Catch ex As AccesoDatosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlGuardarDatosDeLogeo, ex)
        Catch ex As ReglaNegociosObjetosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlGuardarDatosDeLogeo, ex)
        Catch ex As Exception
            Throw New ReglaNegociosMetodosException(String.Format(My.Resources.ResMensajes.ErrorDesconocido, ex.Message), ex)
        End Try

    End Sub

End Class
